home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / general / String.st < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.8 KB  |  78 lines
  1. Class String :ArrayedCollection
  2. [
  3.    , aString
  4.       ^ <primitive 103 self 
  5.          (<primitive 6 self aString>
  6.             ifTrue:  [aString]
  7.             ifFalse: [aString printString])>
  8. |
  9.    = aString
  10.       ^ <primitive 6 self aString>
  11.          ifTrue:  [<primitive 101 self aString> = 0]
  12.          ifFalse: [self compareError]
  13. |
  14.    < aString
  15.       ^ <primitive 6 self aString>
  16.          ifTrue:  [<primitive 101 self aString> < 0]
  17.          ifFalse: [self compareError]
  18. |
  19.    <=  aString
  20.       ^ <primitive 6 self aString>
  21.          ifTrue:  [<primitive 101 self aString> <= 0]
  22.          ifFalse: [self compareError]
  23. |
  24.    >=  aString
  25.       ^ <primitive 6 self aString>
  26.          ifTrue:  [<primitive 101 self aString> >= 0]
  27.          ifFalse: [self compareError]
  28. |
  29.    >  aString
  30.       ^ <primitive 6 self aString>
  31.          ifTrue:  [<primitive 101 self aString> > 0]
  32.          ifFalse: [self compareError]
  33. |
  34.    asSymbol
  35.       ^ <primitive 108 self>
  36. |
  37.    at: aNumber
  38.       ^ <primitive 104 self aNumber>
  39. |
  40.    at: aNumber put: aChar
  41.       <primitive 105 self aNumber aChar>
  42. |
  43.    compareError
  44.       ^ self error: 'strings can only be compared to strings'
  45. |
  46.    copyFrom: start to: stop
  47.       ^ <primitive 106 self start (stop - start + 1) >
  48. |
  49.    copyFrom: start length: len
  50.       ^ <primitive 106 self start len >
  51. |
  52.    deepCopy
  53.       ^ <primitive 107 self >
  54. |
  55.    new: size
  56.       ^ <primitive 115 size>
  57. |
  58.    printAt: aPoint
  59.       <primitive 126 self (aPoint x) (aPoint y)>
  60. |
  61.    printString
  62.       ^ <primitive 109 self>
  63. |
  64.    print
  65.       <primitive 121 self>
  66. |
  67.    size
  68.       ^ <primitive 100 self>
  69. |
  70.    sameAs: aString
  71.       ^ <primitive 6 self aString>
  72.            ifTrue:  [<primitive 102 self aString>]
  73.           ifFalse:  [self compareError]
  74. |
  75.    cr
  76.       ^ <primitive 96 10> "10 is really newline/linefeed ASCII code."
  77. ]
  78.